Дана последовательность вещественных чисел, оканчивающаяся числом 10000. Количество чисел в последовательности не меньше двух. Определить, является ли последовательность упорядоченной по возрастанию. В случае отрицательного ответа определить порядковый номер первого числа, нарушающего такую упорядоченность. — Pascal(Паскаль)

const
  hmax = 10000;
 
var
  a: array [1..hmax] of integer;
  h, n, k, sc: integer;
 
begin
  Writeln('Введите количество членов');
  readln(n);
  for k := 1 to n do  
  begin
    a[k] := random(10001);  {10001 если с нулем, 10000 если начинается с 1}
    writeln(a[k]);
  end;
  k := 1;
  sc := 1;
  while sc <> 0 do 
  begin
    if (a[k + 1]) < (a[k]) then begin
      writeln('Первое число,нарушающее упорядоченность : ', a[k + 1]);
      sc := 0;
    end;
    K := k + 1;
    if k = n then break;
  end;
  if sc <> 0 then writeln('Последовательность упорядочена');
end.